Option Explicit
Sub P_Sample024()
    Dim myFso As Scripting.FileSystemObject
    Dim myFolders As Scripting.Folders
    Dim myFolder As Scripting.Folder
    Set myFso = New Scripting.FileSystemObject
    'wNƧ
    Set myFolders = myFso.GetFolder(ThisWorkbook.Path).SubFolders
    For Each myFolder In myFolders
        Debug.Print myFolder.Name, myFolder.Size, myFolder.ShortName
    Next
    Set myFolders = Nothing	'
    Set myFso = Nothing
End Sub
